120 

no 

140 



160 



180 



190 
200 



220 



240 
250 



10 tnit: 

15 Direction ■ UP; 

20 mainjoop: 

25 ifmode_switching = ON then: 

30 ifDirection = UP then 

40 heatjoop: 

50 heat laser light source (set PW = 100%) 

60 if modc_switching = OFF then 



70 



90 

100 ckc 



calculate ncw_PW to maintain temp 
set PW to ncwJ>W 
jump to mainjoop 



110 if topj>fjange_reached then 

115 Direction = DOWN; 



jump to cooljoop; 

else 

jump to heatjoop; 

»» end if; 



end if; 



l7 0 else /•♦*♦* Direction « DOWN •*♦**/ 

175 cooljoop: 



cool laser light source (set PW = 0%) 



1 85 if mode_switching «=' OFF then 



calculate ncwJ>W to maintain temperature; 
set PW to new PW 



^ jump to mainjoop 



else 

230 if bottom j>fjrange_reached men 

235 Direction = UP; 



jump to heatjoop; 

else 



• ' 19/zfc 

260 jump to cool_loop; 

270 end if; 

2" endif; 
280 else 

290 use PW to maintain temperature 

300 jump to mainjoop 

310 cndif; 
320 end 



P\G 



80 



110 



20/ 



7J* 



10 mainjoop: 

20 if mode_switching - ON then begin: 

30 if heater jxmer = low (PW <= 50%) then 

40 heatjoop: 

50 heat laser light source (set P W = 1 00%) 

to ifrrKxfe_switching = OFF then 

7 ^ calculate ncw_PW to maintain temp 



set PW to new PW 



90 jump to mainjoop 

100 else 



if top_of_range_reached then 



120 jump to cooljoop; 

130 else 

1 *0 jump to heatjoop; 

150 end if; 

160 end if; 

170 else /»•♦♦* heater_power = high (PW>50%) ***♦/ 

175 cooljoop: 

1*° cool laser light source (set PW = 0%) 

1 85 if nKKte_switching = OFF then 

1*° calculate new PW to maintain temperature; 

200 set PW to newJ>W 

210 jump to mainjoop 

220 else 

230 if bottom j>frange_reached then 

240 jump to heatjoop; 

250 cIsc 

2^0 j um p to cooljoop; 

270 end if; 

275 endif; 
280 enditff; 



&C6) 



285 else 

290 use PW to maintain temperature 

300 jump to main_k>op 

310 endif; 
320 end 
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